home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / req1.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  47 lines
  1. DEFINITION MODULE Req1;
  2. (* Aufbau einer Gadget-Struktur in einem Window *)
  3. (* Modul erstellt mit GadgetEd V1.0 *)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7. CONST NumbGadgReq1 = 6;   (* Anzahl der Gadgets *)
  8.  
  9. PROCEDURE InitReq1
  10.                         (VAR wptr   : ADDRESS;
  11.                              Screen : ADDRESS;
  12.                              Title  : ADDRESS);
  13. (* Aufbauen der Gadget-Struktur. 
  14.    wptr  : Zeiger auf das Window, in das die Gadget-Struktur ein-
  15.            gebaut werden soll.
  16.            Falls wptr = NIL wird ein Standard-Window, mit Größe
  17.            und Position wie im Editor definiert, eröffnet.
  18.  
  19.    Diese Parameter haben nur für wptr = NIL eine Wirkung:
  20.    Screen: Zeiger auf Screen, in dem das Window erscheinen soll.
  21.            NIL für WorkbenchScreen.
  22.    Title : Zeiger auf Namen des Windows *)
  23.  
  24. PROCEDURE CloseReq1;
  25. (* Schließen des Gadget-Windows. *)
  26.  
  27. PROCEDURE GetReq1GPtr (ID : INTEGER) : ADDRESS;
  28. (* Liefert den GadgetPtr des Gadgets mit der angegebenen ID. *)
  29.  
  30. (*
  31. Liste der Gadgets mit IDs:
  32. --------------------------
  33.  
  34. Bereich der IDs: 0 .. NumbGadg-1
  35.  
  36. ID  Typ         Text des Gadgets
  37. ----------------------------------------------------------
  38. 00  boolGadget   OK
  39. 01  propGadget   B
  40. 02  propGadget   G
  41. 03  propGadget   R
  42. 04  strGadget    Number of Colors:
  43. 05  strGadget    Filename:
  44. *)
  45.  
  46. END Req1.
  47.